home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm5 / awbmltym.lha / AWEBmailtoYAM / scripts / Part2.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-27  |  1KB  |  54 lines
  1. CALL CLOSE(4)
  2. ADDRESS COMMAND 'execute T:EditMail.tmp'
  3. IF EXISTS("T:WriteMail.tmp")=0 THEN
  4.   EXIT
  5. CALL OPEN(4,'T:WriteMail.tmp',r)
  6. CALL OPEN(5,'T:SendMail.tmp',w)
  7. send=0
  8. line = READLN(4)
  9. if (UPPER(LEFT(COMPRESS(line),8))="SUBJECT:") THEN DO
  10.     PARSE VAR line 'Subject:' subject
  11.     WriteSubject '"'subject'"'
  12.   line = READLN(4)
  13.   IF (COMPRESS(subject) ~= "") THEN
  14.       send=1
  15. END
  16. ELSE DO
  17.     CALL WRITELN(5,line)
  18.     WriteSubject '""'
  19. END
  20. DO FOREVER
  21.   CALL WRITELN(5,line)
  22.   IF(LENGTH(COMPRESS(line))>0) THEN
  23.        send=1
  24.       IF EOF(4) THEN
  25.           LEAVE
  26.   line = READLN(4)
  27. END
  28. CALL CLOSE(4)
  29. CALL CLOSE(5)
  30. IF send THEN DO
  31.  
  32.     WriteLetter 'T:SendMail.tmp'
  33.  
  34. IF (method = '0') THEN DO
  35.  
  36.     ADDRESS COMMAND 'RequestChoice <NIL: >T:ChoiceMail.tmp "All Done." "Thanks for using AWEBmailtoYAM.*n©1996 ALeX Kazik*n*nWhat sould I do now?" "Send it" "2 Outgoing" "Cancel" PUBSCREEN' pubscreen
  37.     CALL OPEN(6,'T:ChoiceMail.tmp',r)
  38.     line = READLN(6)
  39.     CALL CLOSE(6)
  40. END
  41. ELSE
  42.     line = method
  43.  
  44.     IF line='1' THEN
  45.       WriteSend
  46.     ELSE IF line='2' THEN DO
  47.       WriteQueue
  48.         setfolder 1
  49.         getfolderinfo max
  50.         setmail result - 1
  51.     END
  52. END
  53. ADDRESS COMMAND 'delete <>NIL: T:WriteMail.tmp T:SendMail.tmp T:ChoiceMail.tmp T:EditMail.tmp'
  54.